home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / drag&d1a / splash.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1999-08-22  |  6.4 KB  |  191 lines
  1. VERSION 5.00
  2. Begin VB.Form frmSplash 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    ClientHeight    =   4335
  5.    ClientLeft      =   255
  6.    ClientTop       =   1410
  7.    ClientWidth     =   7380
  8.    ClipControls    =   0   'False
  9.    ControlBox      =   0   'False
  10.    Icon            =   "Splash.frx":0000
  11.    KeyPreview      =   -1  'True
  12.    LinkTopic       =   "Form2"
  13.    MaxButton       =   0   'False
  14.    MinButton       =   0   'False
  15.    ScaleHeight     =   4335
  16.    ScaleWidth      =   7380
  17.    ShowInTaskbar   =   0   'False
  18.    StartUpPosition =   2  'CenterScreen
  19.    Begin VB.Frame Frame1 
  20.       Height          =   4155
  21.       Left            =   150
  22.       TabIndex        =   0
  23.       Top             =   60
  24.       Width           =   7080
  25.       Begin VB.Image imgLogo 
  26.          Height          =   2385
  27.          Left            =   360
  28.          Picture         =   "Splash.frx":000C
  29.          Stretch         =   -1  'True
  30.          Top             =   795
  31.          Width           =   1815
  32.       End
  33.       Begin VB.Label lblCopyright 
  34.          Caption         =   "Copyright 1999 - 2010"
  35.          BeginProperty Font 
  36.             Name            =   "Arial"
  37.             Size            =   8.25
  38.             Charset         =   0
  39.             Weight          =   400
  40.             Underline       =   0   'False
  41.             Italic          =   0   'False
  42.             Strikethrough   =   0   'False
  43.          EndProperty
  44.          Height          =   255
  45.          Left            =   4560
  46.          TabIndex        =   4
  47.          Top             =   3060
  48.          Width           =   2415
  49.       End
  50.       Begin VB.Label lblCompany 
  51.          Caption         =   "Cool Corporation"
  52.          BeginProperty Font 
  53.             Name            =   "Arial"
  54.             Size            =   8.25
  55.             Charset         =   0
  56.             Weight          =   400
  57.             Underline       =   0   'False
  58.             Italic          =   0   'False
  59.             Strikethrough   =   0   'False
  60.          EndProperty
  61.          Height          =   255
  62.          Left            =   4560
  63.          TabIndex        =   3
  64.          Top             =   3270
  65.          Width           =   2415
  66.       End
  67.       Begin VB.Label lblText 
  68.          Alignment       =   2  'Center
  69.          BeginProperty Font 
  70.             Name            =   "Times New Roman"
  71.             Size            =   18
  72.             Charset         =   0
  73.             Weight          =   400
  74.             Underline       =   0   'False
  75.             Italic          =   0   'False
  76.             Strikethrough   =   0   'False
  77.          EndProperty
  78.          Height          =   435
  79.          Left            =   150
  80.          TabIndex        =   2
  81.          Top             =   3660
  82.          Width           =   6855
  83.       End
  84.       Begin VB.Label lblVersion 
  85.          Alignment       =   1  'Right Justify
  86.          AutoSize        =   -1  'True
  87.          Caption         =   "Version"
  88.          BeginProperty Font 
  89.             Name            =   "Arial"
  90.             Size            =   12
  91.             Charset         =   0
  92.             Weight          =   700
  93.             Underline       =   0   'False
  94.             Italic          =   0   'False
  95.             Strikethrough   =   0   'False
  96.          EndProperty
  97.          Height          =   285
  98.          Left            =   5970
  99.          TabIndex        =   5
  100.          Top             =   2700
  101.          Width           =   885
  102.       End
  103.       Begin VB.Label lblPlatform 
  104.          Alignment       =   1  'Right Justify
  105.          AutoSize        =   -1  'True
  106.          Caption         =   "Windows 95/98"
  107.          BeginProperty Font 
  108.             Name            =   "Arial"
  109.             Size            =   15.75
  110.             Charset         =   0
  111.             Weight          =   700
  112.             Underline       =   0   'False
  113.             Italic          =   0   'False
  114.             Strikethrough   =   0   'False
  115.          EndProperty
  116.          Height          =   360
  117.          Left            =   4575
  118.          TabIndex        =   6
  119.          Top             =   2340
  120.          Width           =   2280
  121.       End
  122.       Begin VB.Label lblProductName 
  123.          AutoSize        =   -1  'True
  124.          Caption         =   "Cheats"
  125.          BeginProperty Font 
  126.             Name            =   "Arial"
  127.             Size            =   32.25
  128.             Charset         =   0
  129.             Weight          =   700
  130.             Underline       =   0   'False
  131.             Italic          =   0   'False
  132.             Strikethrough   =   0   'False
  133.          EndProperty
  134.          Height          =   765
  135.          Left            =   2520
  136.          TabIndex        =   8
  137.          Top             =   1140
  138.          Width           =   2145
  139.       End
  140.       Begin VB.Label lblLicenseTo 
  141.          Alignment       =   1  'Right Justify
  142.          BeginProperty Font 
  143.             Name            =   "Arial"
  144.             Size            =   8.25
  145.             Charset         =   0
  146.             Weight          =   400
  147.             Underline       =   0   'False
  148.             Italic          =   0   'False
  149.             Strikethrough   =   0   'False
  150.          EndProperty
  151.          Height          =   255
  152.          Left            =   120
  153.          TabIndex        =   1
  154.          Top             =   240
  155.          Width           =   6855
  156.       End
  157.       Begin VB.Label lblCompanyProduct 
  158.          AutoSize        =   -1  'True
  159.          BeginProperty Font 
  160.             Name            =   "Arial"
  161.             Size            =   18
  162.             Charset         =   0
  163.             Weight          =   700
  164.             Underline       =   0   'False
  165.             Italic          =   0   'False
  166.             Strikethrough   =   0   'False
  167.          EndProperty
  168.          Height          =   435
  169.          Left            =   2355
  170.          TabIndex        =   7
  171.          Top             =   705
  172.          Width           =   105
  173.       End
  174.    End
  175. Attribute VB_Name = "frmSplash"
  176. Attribute VB_GlobalNameSpace = False
  177. Attribute VB_Creatable = False
  178. Attribute VB_PredeclaredId = True
  179. Attribute VB_Exposed = False
  180. Option Explicit
  181. Private Sub Form_KeyPress(KeyAscii As Integer)
  182.     Unload Me
  183. End Sub
  184. Private Sub Form_Load()
  185.     lblVersion.Caption = "Version " & App.Major & "." & App.Minor & "." & App.Revision
  186.     lblProductName.Caption = App.Title
  187. End Sub
  188. Private Sub Frame1_Click()
  189.     Unload Me
  190. End Sub
  191.